home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Merciful 2
/
Merciful - Disc 2.iso
/
software
/
d
/
digitaorganiserii.dms
/
digitaorganiserii.adf
/
Install Organiser
< prev
next >
Wrap
Text File
|
1995-11-27
|
50KB
|
1,992 lines
; $VER: Digita Organiser Installer Script 7/4/95
; By Mark Jackson
; English Language
;
; Works for Full version
; This section contains the Text strings for translation and
; appending to the code
;
; Copyright (C) Digita International
;------------------------------------------------------
; ### Variable declarations
(set #ProgName "Organiser")
(set #NumberInstallDisks 1)
(set #InstallDisk "OrganiserInstall")
(set #NumNewDisks 2)
(set #MainDisk "Organiser")
(set #FilesDisk "OrganiserExtras")
(set #RamTempFile "RAM:OrgTemp")
(set #RamUtils "RAM:OrgUtils")
(set #HDSpaceNeededBytes (* (* 1 1024) 1024)) ;1MB free
(set #ToolDest (cat #MainDisk ":" #ProgName))
(set #DriverDest "DEVS:Printers")
(set #HelpTool "HELPFILE")
;------------------------------------------------------
; ### String declaration
;// Drawer names
(set #DrawerName "Organiser")
(set #FilesName "Files")
(set #SuppStorageName "Supplements Storage 96")
(set #SupplementsName "Supplements")
(set #ThemesName "Diary Themes 96")
(set #TemplatesName "Templates")
(set #CatalogsName "catalogs")
(set #FontsName "Fonts")
(set #LibsDefault "Libs")
(set #SamplesName "Sound Samples")
(set #CatalogsName "Catalogs")
;------------------------------------------------------
;// Archive Names
(set #ASLArchiveName "asl.lha")
(set #CommoditiesArchiveName "commodities.lha")
(set #AmigaGuideArchiveName "Amigaguide.lha")
(set #DiskfontArchiveName "Diskfont.lha")
(set #ProgArchiveName "Organiser.lha")
(set #CatalogsArchiveName "Catalogs.lha")
(set #SuppStorageArchiveName "Supp_Storage.lha")
(set #SupplementsArchiveName "Supplements.lha")
(set #ThemesArchiveName "Themes.lha")
(set #FilesArchiveName "Files.lha")
(set #TemplatesArchiveName "Templates.lha")
(set #SystemFontsArchiveName "Fonts.lha")
(set #StartupArchiveName "startup.lha")
(set #DevicesArchiveName "Devices.lha")
(set #Env-ArchiveArchiveName "Env-Archive.lha")
(set #HelpArchiveName "Help.lha")
(set #PrinterArchiveName "Printer.lha")
(set #SoundArchiveName "Sound.lha")
(set #HarpArchiveName "Harp.lha")
(set #DrawerInfoArchiveName "DrawerInfo.lha")
(set #ProgramInfoArchiveName "ProgramInfo.lha")
(set #HDInfoArchiveName "HDInfo.lha")
(set #Disk1InfoArchiveName "Disk1Info.lha")
(set #Disk2InfoArchiveName "Disk2Info.lha")
(set #OtherPrefsArchiveName "OtherPrefs.lha")
(set #AddMonitorArchiveName "AddMonitor.lha")
(set #CatalogsArchiveName "Catalogs.lha")
;------------------------------------------------------
;// File Names
(set #LibsSource (cat #InstallDisk ":libs"))
;------------------------------------------------------
;// Message strings
(set #BadKick
(cat #ProgName " requires Workbench 2.04 or above to work correctly.")
)
(set #CheckStartup
(cat "\n\n\nPlease wait...\n\nThe installer is just checking your system.")
)
(set #DestChoicePrompt
(cat "\n\n\nWhere would you like to install " #ProgName "?")
)
(set #FloppyChoiceMsg
(cat "On floppy disks")
)
(set #HardDiskChoiceMsg
(cat "On a hard disk")
)
(set #DestChoiceHelp
(cat "\nSelect the radio button \"On a hard disk\" to "
"install " #ProgName " onto your hard disk.\n\n"
"Select the radio button \"On floppy disks\" to "
"install " #ProgName " onto a set of backup disks.\n\n\n"
)
)
(set #HardDiskDestChoiceMsg
(cat "Where do you want to install the\n" #DrawerName " drawer?")
)
(set #HardDiskDestChoiceHelp
(cat "Select the drawer where you want to install " #ProgName
", then click Proceed (a new drawer titled \"" #DrawerName
"\" will be created and will contain the " #ProgName " program.)"
)
)
(Set #HDBootedFromFloppy
(cat "It appears you are installing to Hard-disk, but booted from the " #InstallDisk
" Floppy-disk, this will not work.\n\nPlease reset your Amiga with no floppy-disks "
"inserted so it boots from the hard-disk, then try installing " #ProgName " again."
)
)
(set #NoDiskSpaceMsg1
(cat "\nThere is insufficient available space on your hard disk to install "
#ProgName ". You will need a minimum of "
)
)
(set #NoDiskSpaceMsg2
(cat "MB of free disk space.\n\nEither click \"Abort Install\" to exit this "
"installation and delete some files from your hard disk, or click \"Proceed\" and try a "
"different partition."
)
)
(set #DrawerExistsMsg
(cat "\nA drawer titled \"" #DrawerName "\" already exists in "
"the destination you have chosen.\n\nDo you wish to replace it "
"or choose a new destination?\n\n"
)
)
(set #DrawerExistsChoice1 "Replace it")
(set #DrawerExistsChoice2 "Choose new destination")
(set #DrawerExistsHelp
(cat "\nYou have chosen a destination drawer which already has \""
#DrawerName "\" installed there.\n\nClick \""
#DrawerExistsChoice1 "\" to replace the contents with this new version "
"of " #ProgName ".\nClick \"" #DrawerExistsChoice2 "\" to choose a "
"new destination drawer.\n\n"
"If you choose \"" #DrawerExistsChoice1 "\" then please make sure you "
"have back up copies of any documents you wish to keep."
)
)
(set #InstallChoice1 "Yes - Replace it")
(set #InstallChoice2 "No")
(set #OldASLLibraryMsg
(cat "You either do not have an ASL library, or it is the wrong version. "
#ProgName " requires you have at least version 36 of this "
"library. Do you want to copy version 38 of the ASL library?"
)
)
(set #OldASLLibraryHelp
(cat #ProgName " will not work properly unless you have at least version 36 "
"of the ASL library (Workbench 2.0 or above).\n\n"
"Choose \"" #InstallChoice1 "\" to copy version 38 of the library "
"and then install " #ProgName ".\nChoose \"" #InstallChoice2 "\" to not install "
"ASL library version 38."
)
)
(set #OldCommoditiesLibraryMsg
(cat "You either do not have an Commodities library, or it is the wrong version. "
#ProgName " requires you have at least version 37 of this "
"library. Do you want to copy version 38 of the Commodities library?"
)
)
(set #OldCommoditiesLibraryHelp
(cat #ProgName " will not work properly unless you have at least version 37 "
"of the Commodities library (Workbench 2.0 or above).\n\n"
"Choose \"" #InstallChoice1 "\" to copy version 38 of the library "
"and then install " #ProgName ".\nChoose \"" #InstallChoice2 "\" to not install "
"Commodities library version 38."
)
)
(set #OldDiskFontLibraryMsg
(cat "You either do not have an DiskFont library, or it is the wrong version. "
#ProgName " requires you have at least version 36 of this "
"library. Do you want to copy version 38 of the DiskFont library?"
)
)
(set #OldDiskFontLibraryHelp
(cat #ProgName " will not work properly unless you have at least version 36 "
"of the DiskFont library (Workbench 2.0 or above).\n\n"
"Choose \"" #InstallChoice1 "\" to copy version 38 of the library "
"and then install " #ProgName ".\nChoose \"" #InstallChoice2 "\" to not install "
"DiskFont library version 38 and quit this installer."
)
)
(set #OldAmigaGuideLibraryMsg
(cat "You either do not have an AmigaGuide library, or it is the wrong version. "
#ProgName " requires you have at least version 34.11 of this "
"library. Do you want to copy version 34.11 of the AmigaGuide library?"
)
)
(set #OldAmigaGuideLibraryHelp
(cat #ProgName " will not work properly unless you have at least version 34.11 "
"of the AmigaGuide library.\n\n"
"Choose \"" #InstallChoice1 "\" to copy version 34.11 of the library "
"and then install " #ProgName ".\nChoose \"" #InstallChoice2 "\" to not install "
"AmigaGuide library version 34.11."
)
)
(set #OldLocaleLibraryMsg
(cat "You either do not have an Locale library, or it is the wrong version. "
#ProgName " requires you have at least version 38 of this "
"library. Do you want to copy version 38 of the Locale library?"
)
)
(set #OldLocaleLibraryHelp
(cat #ProgName " will not work properly unless you have at least version 38 "
"of the Locale library (Workbench 2.1 or above).\n\n"
"Choose \"" #InstallChoice1 "\" to copy version 38 of the library "
"and then install " #ProgName ".\nChoose \"" #InstallChoice2 "\" to not install "
"Locale library version 38."
)
)
(set #OldParseLibraryMsg
(cat "You either do not have an IffParse library, or it is the wrong version. "
#ProgName " requires you have at least version 33 of this "
"library. Do you want to copy version 34 of the IffParse library?"
)
)
(set #OldParseLibraryHelp
(cat #ProgName " will not work properly unless you have at least version 33 "
"of the IffParse library (Workbench 1.2 or above).\n\n"
"Choose \"" #InstallChoice1 "\" to copy version 34 of the library "
"and then install " #ProgName ".\nChoose \"" #InstallChoice2 "\" to not install "
"IffParse library version 34."
)
)
(set #InsertDiskMsg
(cat "\nPlease insert the disk labelled\n\n")
)
(set #diskhelp
(cat "\nIf you know that the correct disk is in the drive, but you still cannot proceed, "
"then the name of the disk is incorrect.\n"
"Ensure that the disk name is not preceded by 'copy_of_', or blank spaces before or after the disk name.\n\n\n" @askdisk-help
)
)
(set #Unpackmsg1 "Unarchiving ")
(set #Unpackmsg2 " to ")
(set #Unpackmsg3 "\n\nPlease wait...")
(set #ArchiveAbortMsg1
(cat "There was a problem when trying to dearchive '")
)
(set #ArchiveAbortMsg2
(cat "'. Please try installing to a different drawer or partition, "
"or contact Digita Technical Support."
)
)
(set #BlankDiskWarning
(cat "\nPlease insert a 'blank' disk in the internal\n"
"disk drive and click \"Proceed\" when ready."
"\n\nWARNING: This procedure will destroy all information "
"that may already be on the disk."
)
)
(set #FloppyWarningHelp
(cat "\nThis procedure uses the 'format' command to "
"wipe and prepare the disk in the internal disk drive "
"for use with Organiser."
"\n\nWrite-protect your master disks before making "
"backup copies and place the masters in a safe place."
"\n\nYou should also write-protect your backup disks "
"before clicking the \"Proceed\" button."
)
)
(set #NotBlankMsg1
(cat "\nYou have the \"")
)
(set #NotBlankMsg2
(cat "\" disk in your internal disk drive.\n\nPlease "
"replace this disk with a blank one, before "
"clicking the \"Proceed\" button."
)
)
(set #FormatWorkingMsg
(cat "Please wait... Formatting a disk.")
)
(set #FormatError
(cat "\nAn error occured when trying to format this disk.\n\n"
"Please ensure that the disk is in the disk drive "
"before you click the \"Proceed\" button or "
"put another disk in the drive and try again."
)
)
(set #FormatErrorHelp
(cat "\nAn error has occured during the formatting of "
"your disk. This could be for many reasons, but more "
"commonly, either the disk was corrupt or the drive was "
"faulty.\nPlease try a different disk, check the drive "
"and then if the problem persists, contact the Technical "
"Support Department. Information on how to get Support is "
"explained in the manual."
)
)
(set #FormatCompleteMsg1
(cat " created.\n\nPlease take out the disk "
"in the internal disk drive and label it \""
)
)
(set #FormatCompleteMsg2
(cat "\", then click the \"Proceed\" button.")
)
(set #FormatChoiceprompt
(cat "\n" #ProgName " needs to format and name two disks during installation. "
"For more information click 'Help'. Do you wish to:"
))
(set #FormatChoicemsg1 "Slow Format Some Blank Disks")
(set #FormatChoicemsg2 "Quick Format Some Blank Disks")
(set #FormatChoice-Help
(cat "This installation utility needs to prepare two disks before installing "
#ProgName ". Before each disk is created, it will be formatted and named. "
"\n\nChoose '" #FormatChoicemsg1 "' if you wish to perform a full format, or \nchoose "
"'" #FormatChoicemsg2 "' to perform a quick format on disks that must have been "
"previously formatted as Fast File System disks."
))
(set #FloppyFinishedMsg
(cat "\nAfter clicking the 'Proceed' button, place the \"" #MainDisk
"\" disk in the internal disk drive and reset your Amiga.\n"
)
)
(set #WorkingMsg (cat "Please wait...\n\nInstalling " #ProgName))
(set #CreateDiskPrompt1 "\n\nDo you want to create the '")
(set #CreateDiskPrompt2 "' disk?")
(set #ChoiceContinue "Yes")
(set #ChoiceSkip "Skip this part")
(set #CreateDiskHelp
(cat "\nThe '" #MainDisk "' disk contains all of the "
#ProgName " program files. \n\nIf you would like to create a "
#MainDisk " disk then click '" #ChoiceContinue "'.\nIf you do "
"not want to create this disk then click '" #ChoiceSkip "'."
)
)
(set #CreateFilesDiskHelp
(cat "\nThe '" #FilesDisk "' disk contains the Supplements, Diary themes "
"and Templates. \n\nIf you would like to create a "
#FilesDisk " disk then click '" #ChoiceContinue "'.\nIf you do "
"not want to create this disk then click '" #ChoiceSkip "'."
)
)
(set #AskLocaleCmd "Assign >NIL: LOCALE: SYS:Locale")
(set #AskLocaleMsg
(cat "It appears Locale is not set up correctly on your hard-disk, " #ProgName
" requires this to function properly.\n\n"
"An assign needs to be added to your 'User-Startup' "
"script:\n\n'" #AskLocaleCmd "'\n\nClick Proceed to continue."
)
)
(set #AskLocaleHelp
(cat "For the Date and Time functions to work properly, " #ProgName " Requires "
"Locale to be set up correctly on your hard-disk, part of this involves "
"adding a LOCALE assign to your User-Startup script.\n\nClick "
"Proceed if you want the installer to do this automatically, or "
"click 'Skip This Part' to not modify the User-Startup."
)
)
(set #PrinterChoicePrompt
(cat "\n\nDo you wish to install a printer driver?"
)
)
(set #PrinterChoicemsg1 "Yes")
(set #PrinterChoicemsg2 "No")
(set #PrinterChoice-Help
(cat "To print from " #ProgName " you need to have the correct printer driver selected for your "
"printer.\nClick the '" #PrinterChoicemsg1 "' button if you wish to install a printer "
"driver, or the '" #PrinterChoicemsg2 "' button if you do not want to install a printer "
"driver."
)
)
;------------------------------------------------------
; ### Procedure declarations
;------------------------------------------------------
;// routine to get disk specified in '#FileSourceDisk'
(procedure @GetDisk
(
(askdisk
(prompt #InsertDiskMsg #FileSourceDisk)
(help #diskhelp)
(dest #FileSourceDisk)
)
)
)
;------------------------------------------------------
;// Procedure to decompress file set in '#UnpackFile' to '#UnpackDest'
(procedure @UnpackFiles
(
(working #Unpackmsg1 #UnpackFile #Unpackmsg2 #UnpackDest #Unpackmsg3)
(set ExpandName #UnpackFile)
(set #ArchiveError 0)
(set RunLhx
(cat "OrgUtils:Lhx -I -m e \"" ExpandName "\" \"" #UnpackDest "\"")
)
(set #ArchiveError (run RunLhx))
(if (> #ArchiveError 0)
(
(set #ArchiveAbortMsg (cat #ArchiveAbortMsg1 ExpandName #ArchiveAbortMsg2))
(abort #ArchiveAbortMsg)
)
)
)
)
;------------------------------------------------------
;// Initial Checks
(procedure @InitialChecks
(
;// Check OS version
(working #CheckStartup)
(set #OSVerNum (getversion))
(set #OSVersion (/ #OSVerNum 65536))
(if (< #OSVersion 37)
(abort #BadKick)
)
;// Create temp file in ram: for files
(if (not (exists #RamTempFile))
(
(makedir #RamTempFile (safe))
)
)
(makeassign "OrgTemp" #RamTempFile (safe))
;// Create temp file in ram: for utils
(if (not (exists #RamUtils))
(
(makedir #RamUtils (safe))
)
)
(makeassign "OrgUtils" #RamUtils (safe))
;// Set flag if novice user
(set #UserNovice 0)
(if (= @user-level 0)
(
(set #UserNovice 1)
)
)
(copyfiles
(source (cat #InstallDisk ":Utils"))
(dest "OrgUtils:")
(all)
(nogauge)
(optional "nofail")
)
;// don't copy delete to OrgUtils, as it is used to delete OrgUtils!
(copyfiles
(source (cat #InstallDisk ":c"))
(dest "Ram:")
(pattern "delete")
(nogauge)
(optional "nofail")
)
(copyfiles
(source (cat #InstallDisk ":System"))
(dest "OrgUtils:")
(pattern "format")
(nogauge)
(optional "nofail")
)
)
)
;------------------------------------------------------
;// Check that ASL library is at least v36 (if not replace)
(procedure @CheckASL
(
(set ASLVerNum (getversion (cat #LibsDefault ":ASL.library")))
(set ASLVer (/ ASLVerNum 65536))
(if (< ASLVer 36)
(
(if (= @user-level 2)
(
(set InstallASLLibrary
(askbool
(prompt #OldASLLibraryMsg)
(choices #InstallChoice1 #InstallChoice2)
(help #OldASLLibraryHelp)
(default 1)
)
)
(if (= InstallASLLibrary 1)
(
(@InstallASL)
)
)
)
(
(@InstallASL)
)
)
)
) ;endif
)
)
;------------------------------------------------------
;// Procedure to install the asl library
(procedure @InstallASL
(
(set #UnpackFile (cat #ArchiveLocation #ASLArchiveName))
(set #UnpackDest #LibsDest)
(if (exists (cat #UnpackDest "asl.library"))
(delete (cat #UnpackDest "asl.library")
(optional "force")
)
)
(@UnpackFiles)
)
)
;------------------------------------------------------
;// Check that Locale library is at least v38 (if not replace)
(procedure @CheckLocale
(
(set LocaleVerNum (getversion (cat #LibsDefault ":Locale.library")))
(set LocaleVer (/ LocaleVerNum 65536))
(if (< LocaleVer 38)
(
(if (= @user-level 2)
(
(set InstallLocaleLibrary
(askbool
(prompt #OldLocaleLibraryMsg)
(choices #InstallChoice1 #InstallChoice2)
(help #OldLocaleLibraryHelp)
(default 1)
)
)
(if (= InstallLocaleLibrary 1)
(
(@InstallLocale)
)
)
)
(
(@InstallLocale)
)
)
)
) ;endif
)
)
;------------------------------------------------------
;// Procedure to install the locale library
(procedure @InstallLocale
(
(if (exists (cat #LibsDefault ":locale.library"))
(
(delete (cat #LibsDefault ":locale.library")
(optional "force")
)
)
)
(copyfiles
(source #LibsSource)
(dest (cat #LibsDefault ":"))
(pattern "locale.library")
(optional "force")
)
)
)
;------------------------------------------------------
;// Check that IFFParse library is at least v33 (if not replace)
(procedure @CheckParse
(
(set ParseVerNum (getversion (cat #LibsDefault ":iffparse.library")))
(set ParseVer (/ ParseVerNum 65536))
(if (< ParseVer 33)
(
(if (= @user-level 2)
(
(set InstallParseLibrary
(askbool
(prompt #OldParseLibraryMsg)
(choices #InstallChoice1 #InstallChoice2)
(help #OldParseLibraryHelp)
(default 1)
)
)
(if (= InstallParseLibrary 1)
(
(@InstallParse)
)
)
)
(
(@InstallParse)
)
)
)
) ;endif
)
)
;------------------------------------------------------
;// Procedure to install the iffparse library
(procedure @InstallParse
(
(if (exists (cat #LibsDefault ":iffparse.library"))
(
(delete (cat #LibsDefault ":iffparse.library")
(optional "force")
)
)
)
(copyfiles
(source #LibsSource)
(dest (cat #LibsDefault ":"))
(pattern "iffparse.library")
(optional "force")
)
)
)
;------------------------------------------------------
;// Check that diskfont library is at least v36 (if not replace)
(procedure @CheckDiskFont
(
(set DFVerNum (getversion (cat #LibsDefault ":diskfont.library")))
(set DFVer (/ DFVerNum 65536))
(if (< DFVer 36)
(
(if (= @user-level 2)
(
(set InstallDiskFontLibrary
(askbool
(prompt #OldDiskFontLibraryMsg)
(choices #InstallChoice1 #InstallChoice2)
(help #OldDiskFontLibraryHelp)
(default 1)
)
)
(if (= InstallDiskFontLibrary 1)
(
(@InstallDiskFont)
)
) ;end if
)
(
(@InstallDiskFont)
)
) ;end if
)
) ;endif
)
)
;------------------------------------------------------
;// Procedure to install diskfont library
(procedure @InstallDiskFont
(
(set #UnpackFile (cat #ArchiveLocation #DiskfontArchiveName))
(set #UnpackDest #LibsDest)
(if (exists (cat #UnpackDest "diskfont.library"))
(delete (cat #UnpackDest "diskfont.library")
(optional "force")
)
)
(@UnpackFiles)
)
)
;------------------------------------------------------
;** Check that AmigaGuide library is at least version 34.11 (if not replace)
(procedure @CheckAmigaGuide
(
(set AGVerNum (getversion (cat #LibsDefault ":amigaguide.library")))
(set AGVer (/ AGVerNum 65536))
(set AGRev (- AGVerNum (* AGVer 65536)))
(if (< AGVer 35)
(
(if (< AGRev 11)
(
(if (= @user-level 2)
(
(set InstallAmigaGuideLibrary
(askbool
(prompt #OldAmigaGuideLibraryMsg)
(choices #InstallChoice1 #InstallChoice2)
(help #OldAmigaGuideLibraryHelp)
(default 1)
)
)
(if (= InstallAmigaGuideLibrary 1)
(
(@InstallAmigaGuide)
)
);end if
)
(
(@InstallAmigaGuide)
)
) ;end if (user-level)
)
) ;end if (revision)
)
) ;end if (version)
)
)
;------------------------------------------------------
;// Procedure to install amigaguide library
(procedure @InstallAmigaGuide
(
(set #UnpackFile (cat #ArchiveLocation #AmigaGuideArchiveName))
(set #UnpackDest #LibsDest)
(if (exists (cat #UnpackDest "amigaguide.library"))
(delete (cat #UnpackDest "amigaguide.library")
(optional "force")
)
)
(@UnpackFiles)
)
)
;------------------------------------------------------
;// Check that commodities library is at least v37 (if not replace)
(procedure @CheckCommodities
(
(set CommoditiesVerNum (getversion (cat #LibsDefault ":commodities.library")))
(set CommoditiesVer (/ CommoditiesVerNum 65536))
(if (< CommoditiesVer 37)
(
(if (= @user-level 2)
(
(set InstallCommoditiesLibrary
(askbool
(prompt #OldCommoditiesLibraryMsg)
(choices #InstallChoice1 #InstallChoice2)
(help #OldCommoditiesLibraryHelp)
(default 1)
)
)
(if (= InstallCommoditiesLibrary 1)
(
(@InstallCommodities)
)
)
)
(
(@InstallCommodities)
)
)
)
) ;endif
)
)
;------------------------------------------------------
;// Procedure to install the commodities library
(procedure @InstallCommodities
(
(set #UnpackFile (cat #ArchiveLocation #CommoditiesArchiveName))
(set #UnpackDest #LibsDest)
(if (exists (cat #UnpackDest "commodities.library"))
(delete (cat #UnpackDest "commodities.library")
(optional "force")
)
)
(@UnpackFiles)
)
)
;------------------------------------------------------
;// Procedure to de-archive screen fonts
(procedure @DearchiveScreenFonts
(
(set #UnpackFile (cat #ArchiveLocation #SystemFontsArchiveName))
(set #UnpackDest #SystemFontsDest)
(@UnpackFiles)
)
)
;------------------------------------------------------
;// Procedure to de-archive Env-Archive files
(procedure @DearchiveEnv-Archive
(
(set #UnpackFile (cat #ArchiveLocation #Env-ArchiveArchiveName))
(set #UnpackDest #Env-ArchiveDest)
(@UnpackFiles)
)
)
;------------------------------------------------------
;// Procedure to de-archive Env files
(procedure @DearchiveEnv
(
(set #UnpackFile (cat #ArchiveLocation #Env-ArchiveArchiveName))
(set #UnpackDest "ENV:")
(@UnpackFiles)
)
)
;------------------------------------------------------
;// Install to HD or Floppy ?
(procedure @CheckHDorFloppy
(
;// Floppy or HD ?
(set #FullPath (expandpath "sys:"))
(if (= #FullPath (cat #InstallDisk ":"))
(set #DiskDefault 1)
(set #DiskDefault 0)
)
;** set novice user to expert briefly
(set #UserNovice 0)
(if (= @user-level 0)
(
(user 2)
(set #UserNovice 1)
)
)
(set #DestinationType
(askchoice
(prompt #DestChoicePrompt)
(choices #HardDiskChoiceMsg
#FloppyChoiceMsg
)
(help #DestChoiceHelp)
(default #DiskDefault)
)
)
;** set novice user back to novice
(if (= #UserNovice 1)
(user 0)
)
(if (= #DestinationType 0)
(set #DestinationType "Hard")
(set #DestinationType "Floppy")
)
)
)
;------------------------------------------------------
;// Choose hard disk destination for Organiser drawer
(procedure @ChooseHDDest
(
;** Find default drawer
(set #DefaultDest (getassign "Work" "d"))
(if (= #DefaultDest "")
(
(set #DefaultDest (getassign "HD3" "d"))
(if (= #DefaultDest "")
(
(set #DefaultDest (getassign "HD2" "d"))
(if (= #DefaultDest "")
(
(set #DefaultDest (getassign "HD1" "d"))
(if (= #DefaultDest "")
(
(set #DefaultDest (getassign "DH1" "d"))
(if (= #DefaultDest "")
(
(set #DefaultDest (getassign "HD0" "d"))
(if (= #DefaultDest "")
(
(set #DefaultDest "DH0:")
(if (= #UserNovice 1)
(user 2)
)
)
)
)
)
)
)
)
)
)
)
)
)
;** Ask for destination
(set #DestDrawer
(askdir
(prompt #HardDiskDestChoiceMsg)
(help #HardDiskDestChoiceHelp)
(default #DefaultDest)
)
)
(if (= #UserNovice 1)
(user 0)
)
)
)
;------------------------------------------------------
;// Find HD Destination and check enough space
(procedure @FindHDDest
(
(set OrgExists 0)
(while (= OrgExists 0)
(
(@ChooseHDDest)
(while (< (getdiskspace #DestDrawer) #HDSpaceNeededBytes)
(
(if (< (getdiskspace #DestDrawer) #HDSpaceNeededBytes)
(
(if (= @user-level 0)
(
(user 2)
(set #UserNovice 1)
)
)
(message #NoDiskSpaceMsg1 (/ (/ #HDSpaceNeededBytes 1024) 1024) #NoDiskSpaceMsg2)
(@ChooseHDDest)
)
)
)
) ;end while
(@CheckExistsAlready)
)
);end while
(if (= #UserNovice 1)
(user 0)
)
)
)
;------------------------------------------------------
;// Procedure to check if Organiser exists already in destination
;// Replace or choose again if so
(procedure @CheckExistsAlready
(
(if (exists (tackon #DestDrawer #DrawerName))
(
(set ChooseAgainAnswer
(askbool
(prompt #DrawerExistsMsg)
(choices #DrawerExistsChoice1 #DrawerExistsChoice2)
(help #DrawerExistsHelp)
(default 1)
)
)
(if (= ChooseAgainAnswer 0)
(
(set OrgExists 0)
)
(
(set OrgExists 1)
)
)
)
(;else
(set OrgExists 1)
)
);endif
)
)
;------------------------------------------------------
;// Create Organiser drawers in chosen destination
(procedure @CreateDrawers
(
(working #WorkingMsg)
(set #InsideHDDest (tackon #DestDrawer #DrawerName))
;// Make the Organiser drawer
(makedir #InsideHDDest (infos))
;// Make the Supplements Storage drawer
(set #HDSuppStorageDest (tackon #InsideHDDest #SuppStorageName))
(makedir #HDSuppStorageDest (infos))
;// Make the Supplements drawer
(set #HDSupplementsDest (tackon #InsideHDDest #SupplementsName))
(makedir #HDSupplementsDest (infos))
;// Make the Files drawer
(set #HDFilesDest (tackon #InsideHDDest #FilesName))
(makedir #HDFilesDest)
;// Make the Themes drawer
(set #HDThemesDest (tackon #InsideHDDest #ThemesName))
(makedir #HDThemesDest (infos))
;// Make the Samples drawer
(set #HDSamplesDest (tackon #InsideHDDest #SamplesName))
(makedir #HDSamplesDest (infos))
;// Make the Templates drawer
(set #HDTemplatesDest (tackon #InsideHDDest #TemplatesName))
(makedir #HDTemplatesDest (infos))
;// Make the Catalogs drawer
(set #HDCatalogsDest (tackon #InsideHDDest #CatalogsName))
(makedir #HDCatalogsDest)
)
)
;------------------------------------------------------
;// set up hard drive destinations
(procedure @SetUpHDProgDests
(
(working #WorkingMsg)
(set #LibsDest (cat #LibsDefault ":"))
(set #ProgDest (cat #InsideHDDest "/"))
(set #SupplementsDest (cat #HDSupplementsDest "/"))
(set #SuppStorageDest (cat #HDSuppStorageDest "/"))
(set #FilesDest (cat #HDFilesDest "/"))
(set #ThemesDest (cat #HDThemesDest "/"))
(set #TemplatesDest (cat #HDTemplatesDest "/"))
(set #SystemFontsDest "Fonts:")
(set #Env-ArchiveDest "Sys:Prefs/Env-Archive/")
(set #SamplesDest (cat #HDSamplesDest "/"))
(set #HelpDest (cat #HDFilesDest "/"))
(set #OrgToolDest (cat #ProgDest #ProgName))
)
)
;------------------------------------------------------
;// set up floppy disk destinations
(procedure @SetUpFloppyProgDests
(
(set #ProgDest (cat #MainDisk ":"))
(set #SupplementsDest (cat #MainDisk ":" #SupplementsName "/"))
(set #SuppStorageDest (cat #FilesDisk ":" #SuppStorageName "/"))
(set #ThemesDest (cat #FilesDisk ":" #ThemesName "/"))
(set #TemplatesDest (cat #FilesDisk ":" #TemplatesName "/"))
(set #FilesDest (cat #MainDisk ":" #FilesName "/"))
(set #SystemFontsDest (cat #MainDisk ":" #FontsName "/"))
(set #Env-ArchiveDest (cat #MainDisk ":Prefs/Env-Archive/"))
(set #LibsDest (cat #MainDisk ":Libs/"))
(set #SamplesDest (cat #MainDisk ":" #SamplesName "/"))
(set #HelpDest (cat #FilesDisk ":Help/"))
(set #OrgToolDest (cat #MainDisk ":" #ProgName))
)
)
;------------------------------------------------------
;// Check to make sure that none of the Organiser disks
;// are in the internal drive before creating blank ones.
(procedure @CheckDisks
(
(set #NumberDisks (+ #NumberInstallDisks #NumNewDisks))
(set #DiskBlank 1)
(set n 0)
(until (OR (= n #NumberDisks) (= #DiskBlank 0))
(
(set #CheckMainDisk
(select n
#InstallDisk
#MainDisk
#FilesDisk
)
)
(if (= (getassign "df0" "d") (cat #CheckMainDisk ":"))
( ;disk is not blank
(set #DiskBlank 0)
)
)
(set n (+ n 1))
)
)
)
)
;------------------------------------------------------
;// Format and name the disk given in #FormatMainDisk
(procedure @FormatDisk
(
(working #FormatWorkingMsg)
;*** USE 2.0 FORMAT COMMAND ***
(if (= #FormatChoice 0)
(
(set #FormatCheck
(run ("OrgUtils:Format drive=df0: name=%s FFS NOICONS" #FormatMainDisk))
)
)
(
(set #FormatCheck
(run ("OrgUtils:Format drive=df0: name=%s FFS QUICK NOICONS" #FormatMainDisk))
)
)
)
(if (OR (> #FormatCheck 0) (< #FormatCheck 0))
(set #NoError 1)
(set #NoError 0)
)
(if (= #NoError 0)
(
(if (= #FormatMainDisk #MainDisk)
(run "OrgUtils:Install2.1 df0:")
)
)
); endif
)
)
;------------------------------------------------------
;// routine to check disk in drive ok and format it if so
(procedure @Makedisk
(
(set #NoError 1)
(while (= #NoError 1)
(
;** Make sure that the install disks are not in the drive
(run "OrgUtils:Wait 6") ;Wait a bit for disk access to stop
(@CheckDisks)
(if (= #DiskBlank 0)
(
(message #NotBlankMsg1 #CheckMainDisk #NotBlankMsg2)
)
(
(set #NoError 1)
(@FormatDisk)
(if (= #NoError 1)
(
(message #FormatError (help #FormatErrorHelp))
)
);endif
)
);endif
)
);endwhile
)
)
;------------------------------------------------------
;// Create floppy disk 1
(procedure @CreateDisk1
(
;// Copy system files from install disk to Ram...
(copyfiles
(source (cat #InstallDisk ":Libs"))
(dest "RAM:Libs")
(all)
(optional "force")
)
(copyfiles
(source (cat #InstallDisk ":c"))
(dest "RAM:c")
(all)
(optional "force")
)
(copyfiles
(source (cat #InstallDisk ":l"))
(dest "RAM:l")
(all)
(optional "force")
)
(copyfiles
(source (cat #InstallDisk ":system"))
(dest "RAM:system")
(all)
(optional "force")
)
(copyfiles
(source (cat #InstallDisk ":Devs"))
(dest "RAM:Devs")
(all)
(optional "force")
)
(copyfiles
(source (cat #InstallDisk ":prefs"))
(dest "RAM:prefs")
(all)
(optional "force")
)
(copyfiles
(source (cat #InstallDisk ":s"))
(dest "RAM:s")
(all)
(optional "force")
)
(copyfiles
(source (cat #InstallName ":Locale"))
(dest "RAM:Locale")
(all)
(optional "force")
)
;// Now create the first disk
(message #BlankDiskWarning
(help #FloppyWarningHelp)
)
(set #FormatMainDisk #MainDisk)
(@Makedisk)
(message (cat "\n" #MainDisk #FormatCompleteMsg1 #MainDisk #FormatCompleteMsg2))
;// Now copy all files from RAM to disk 1, then delete them.
(set #FileSourceDisk #MainDisk)
(@GetDisk)
(makedir (cat #MainDisk ":Prefs") (infos)) ; make Prefs drawer
(copyfiles
(source "RAM:Libs")
(dest (cat #MainDisk ":Libs"))
(all)
(optional "force")
)
(run "ram:delete RAM:Libs all" (safe))
(copyfiles
(source "RAM:l")
(dest (cat #MainDisk ":l"))
(all)
(optional "force")
)
(run "ram:delete RAM:l all" (safe))
(copyfiles
(source "RAM:s")
(dest (cat #MainDisk ":s"))
(all)
(optional "force")
)
(run "ram:delete RAM:s all" (safe))
(complete 20)
(copyfiles
(source "RAM:c")
(dest (cat #MainDisk ":c"))
(all)
(optional "force")
)
(run "ram:delete RAM:c all" (safe))
(copyfiles
(source "RAM:system")
(dest (cat #MainDisk ":system"))
(all)
(optional "force")
)
(run "ram:delete RAM:system all" (safe))
(copyfiles
(source "RAM:Devs")
(dest (cat #MainDisk ":Devs"))
(all)
(optional "force")
)
(run "ram:delete RAM:Devs all" (safe))
(copyfiles
(source "RAM:prefs")
(dest (cat #MainDisk ":prefs"))
(all)
(optional "force")
)
(run "ram:delete RAM:prefs all" (safe))
(copyfiles
(source "RAM:Locale")
(dest (cat #MainDisk ":Locale"))
(all)
(optional "force")
)
(run "ram:delete RAM:Locale all" (safe))
(complete 30)
;## Now install other devices
;## DISK SWAP to get rest of archives
(set #FileSourceDisk #InstallDisk)
(@GetDisk)
;// ... some archives...
(copyfiles
(source (cat #InstallDisk ":Archive"))
(dest "OrgTemp:")
(pattern ("~(Supp_Storage.lha|Themes.lha|Organiser.lha|Templates.lha|Help.lha|Disk1Info.lha|Disk2Info.lha|HDInfo.lha|ProgramInfo.lha|DrawerInfo.lha)"))
(optional "force")
(safe)
)
(copyfiles
(source (cat #InstallDisk ":S"))
(dest "OrgTemp:")
(pattern ("(startup-sequence)"))
(optional "force")
(safe)
)
;## DISK SWAP back again to dearchive to disk
(set #FileSourceDisk #MainDisk)
(@GetDisk)
(makedir (cat #MainDisk ":" #SupplementsName) (infos)) ; make Supplements drawer
(makedir (cat #MainDisk ":WBStartup") (infos)) ; make WBStartup drawer
(makedir (cat #MainDisk ":" #SamplesName) (infos)) ; make Samples drawer
;// Make the Catalogs drawer
(set #CatalogsDest (cat #MainDisk ":" #CatalogsName "/"))
(makedir (cat #MainDisk ":" #CatalogsName))
(set #UnpackFile (cat #ArchiveLocation #DevicesArchiveName))
(set #UnpackDest (cat #MainDisk ":Devs/"))
(@UnpackFiles)
(run (cat "ram:delete " #ArchiveLocation #DevicesArchiveName) (safe))
(complete 40)
(@DearchiveScreenFonts)
(run (cat "ram:delete " #ArchiveLocation #SystemFontsArchiveName) (safe))
(@DearchiveEnv-Archive)
(@DearchiveEnv)
(run (cat "ram:delete " #ArchiveLocation #Env-ArchiveArchiveName) (safe))
(set #UnpackFile (cat #ArchiveLocation #OtherPrefsArchiveName))
(set #UnpackDest (cat #MainDisk ":Prefs/Env-Archive/Sys/"))
(@UnpackFiles)
(run (cat "ram:delete " #ArchiveLocation #OtherPrefsArchiveName) (safe))
(set #UnpackFile (cat #ArchiveLocation #AddMonitorArchiveName))
(set #UnpackDest (cat #MainDisk ":System/"))
(@UnpackFiles)
(run (cat "ram:delete " #ArchiveLocation #AddMonitorArchiveName) (safe))
(@InstallASL)
(run (cat "ram:delete " #ArchiveLocation #ASLArchiveName) (safe))
(@InstallCommodities)
(run (cat "ram:delete " #ArchiveLocation #CommoditiesArchiveName) (safe))
(@InstallAmigaGuide)
(run (cat "ram:delete " #ArchiveLocation #AmigaGuideArchiveName) (safe))
(@InstallDiskfont)
(run (cat "ram:delete " #ArchiveLocation #DiskfontArchiveName) (safe))
(complete 50)
(@InstallFiles)
(run (cat "ram:delete " #ArchiveLocation #FilesArchiveName) (safe))
(@InstallSupplements)
(run (cat "ram:delete " #ArchiveLocation #SupplementsArchiveName) (safe))
(@InstallHarp)
(run (cat "ram:delete " #ArchiveLocation #HarpArchiveName) (safe))
(set #UnpackFile (cat #ArchiveLocation #PrinterArchiveName))
(set #UnpackDest (cat #MainDisk ":Prefs/"))
(@UnpackFiles)
(run (cat "ram:delete " #ArchiveLocation #PrinterArchiveName) (safe))
(set #UnpackFile (cat #ArchiveLocation #SoundArchiveName))
(set #UnpackDest (cat #MainDisk ":Prefs/"))
(@UnpackFiles)
(run (cat "ram:delete " #ArchiveLocation #SoundArchiveName) (safe))
;// Install Catalogs
(set #UnpackFile (cat #ArchiveLocation #CatalogsArchiveName))
(set #UnpackDest #CatalogsDest)
(@UnpackFiles)
(run (cat "ram:delete " #ArchiveLocation #CatalogsArchiveName) (safe))
;## DISK SWAP to get rest of archives
(set #FileSourceDisk #InstallDisk)
(@GetDisk)
;// ... some archives...
(copyfiles
(source (cat #InstallDisk ":Archive"))
(dest "OrgTemp:")
(pattern ("(Organiser.lha|Disk1Info.lha|ProgramInfo.lha)"))
(optional "force")
(safe)
)
(complete 60)
;## DISK SWAP back again to dearchive to disk
(set #FileSourceDisk #MainDisk)
(@GetDisk)
(@InstallProg)
(run (cat "ram:delete " #ArchiveLocation #ProgArchiveName) (safe))
(set #UnpackFile (cat #ArchiveLocation #Disk1InfoArchiveName))
(set #UnpackDest (cat #MainDisk ":"))
(@UnpackFiles)
(run (cat "ram:delete " #ArchiveLocation #Disk1InfoArchiveName) (safe))
(set #UnpackFile (cat #ArchiveLocation #ProgramInfoArchiveName))
(set #UnpackDest (cat #MainDisk ":"))
(@UnpackFiles)
(run (cat "ram:delete " #ArchiveLocation #ProgramInfoArchiveName) (safe))
(tooltype
(dest #OrgToolDest)
(settooltype #HelpTool (cat #FilesDisk ":Help/Organiser.guide"))
)
)
)
;------------------------------------------------------
;// Create floppy disk 2
(procedure @CreateDisk2
(
(set #FileSourceDisk #InstallDisk)
(@GetDisk)
(copyfiles
(source (cat #InstallDisk ":Archive"))
(dest "OrgTemp:")
(pattern ("(Supp_Storage.lha|Themes.lha|Templates.lha|Help.lha|Disk2Info.lha)"))
(optional "force")
(safe)
)
;// Now create the second disk
(message #BlankDiskWarning
(help #FloppyWarningHelp)
)
(complete 70)
(set #FormatMainDisk #FilesDisk)
(@Makedisk)
(message (cat "\n" #FilesDisk #FormatCompleteMsg1 #FilesDisk #FormatCompleteMsg2))
(set #FileSourceDisk #FilesDisk)
(@GetDisk)
;// Create the drawers with icons.
(makedir (cat #FilesDisk ":" #SuppStorageName) (infos)) ; make Supplements Storage drawer
(makedir (cat #FilesDisk ":" #ThemesName) (infos)) ; make Themed diaries drawer
(makedir (cat #FilesDisk ":" #TemplatesName) (infos)) ; make Templates drawer
(makedir (cat #FilesDisk ":Help")) ; make Help drawer
;// Now copy all files from RAM to disk 2, then delete them.
(set #FileSourceDisk #FilesDisk)
(@GetDisk)
(@InstallSuppStorage)
(run (cat "ram:delete " #ArchiveLocation #SuppStorageArchiveName) (safe))
(complete 80)
(@InstallHelp)
(run (cat "ram:delete " #ArchiveLocation #HelpArchiveName) (safe))
(@InstallThemes)
(run (cat "ram:delete " #ArchiveLocation #ThemesArchiveName) (safe))
(@InstallTemplates)
(run (cat "ram:delete " #ArchiveLocation #TemplatesArchiveName) (safe))
(set #UnpackFile (cat #ArchiveLocation #Disk2InfoArchiveName))
(set #UnpackDest (cat #FilesDisk ":"))
(@UnpackFiles)
(run (cat "ram:delete " #ArchiveLocation #Disk2InfoArchiveName) (safe))
)
)
;------------------------------------------------------
;// Install program files
(procedure @InstallProg
(
(working #WorkingMsg)
(set #UnpackFile (cat #ArchiveLocation #ProgArchiveName))
(set #UnpackDest #ProgDest)
(@UnpackFiles)
)
)
;------------------------------------------------------
;// Install Help files
(procedure @InstallHelp
(
(working #WorkingMsg)
(set #UnpackFile (cat #ArchiveLocation #HelpArchiveName))
(set #UnpackDest #HelpDest)
(@UnpackFiles)
)
)
;------------------------------------------------------
;// Install Supplements Storage
(procedure @InstallSuppStorage
(
(working #WorkingMsg)
(set #UnpackFile (cat #ArchiveLocation #SuppStorageArchiveName))
(set #UnpackDest #SuppStorageDest)
(@UnpackFiles)
)
)
;------------------------------------------------------
;// Install Themes
(procedure @InstallThemes
(
(working #WorkingMsg)
(set #UnpackFile (cat #ArchiveLocation #ThemesArchiveName))
(set #UnpackDest #ThemesDest)
(@UnpackFiles)
)
)
;------------------------------------------------------
;// Install Templates
(procedure @InstallTemplates
(
(working #WorkingMsg)
(set #UnpackFile (cat #ArchiveLocation #TemplatesArchiveName))
(set #UnpackDest #TemplatesDest)
(@UnpackFiles)
)
)
;------------------------------------------------------
;// Install Files
(procedure @InstallFiles
(
(working #WorkingMsg)
(set #UnpackFile (cat #ArchiveLocation #FilesArchiveName))
(set #UnpackDest #FilesDest)
(@UnpackFiles)
)
)
;------------------------------------------------------
;// Install Supplements
(procedure @InstallSupplements
(
(working #WorkingMsg)
(set #UnpackFile (cat #ArchiveLocation #SupplementsArchiveName))
(set #UnpackDest #SupplementsDest)
(@UnpackFiles)
)
)
;------------------------------------------------------
;// Install Harp sample
(procedure @InstallHarp
(
(working #WorkingMsg)
(set #UnpackFile (cat #ArchiveLocation #HarpArchiveName))
(set #UnpackDest #SamplesDest)
(@UnpackFiles)
)
)
;------------------------------------------------------
;// Routine to install printer and fonts
(procedure @AddNewPrinter
(
(set #FileSourceDisk #InstallDisk)
(@GetDisk)
;// Delete all in OrgTemp: first...
(run (cat "ram:delete OrgTemp:#?" ) (safe))
(set #ChosenDriver "Generic")
(set #DriverSource (cat #InstallDisk ":Drivers"))
(if (= #DestinationType "Floppy")
(
(set #DriverDest (cat #MainDisk ":Devs/Printers"))
)
(
(set #DriverDest "DEVS:Printers")
(set #CheckGeneric (cat #DriverDest "/" #ChosenDriver))
(if (exists #CheckGeneric)
(
(protect #CheckGeneric "+r+w+e+d")
)
)
)
)
;// Select printer (or driver) from list...
(working #WorkingMsg)
(set #SelectPrt
(cat "OrgUtils:select OrgUtils:OrgPrinterList")
)
(run #SelectPrt (safe))
(set #ChosenDriver (getenv "wwDriver"))
(working #WorkingMsg)
;// driver chosen so copy it to ram...
(copyfiles
(source #DriverSource)
(dest #RamTempFile)
(pattern #ChosenDriver)
(optional "force")
(nogauge)
)
;// Now decompress Driver 'ChosenDriver' to destination '#RamTempFile'...
(set #UnpackFile (tackon #RamTempFile #ChosenDriver))
(set #UnpackDest "OrgTemp:")
(@UnpackFiles)
(delete #UnpackFile)
;// get full uncompressed driver name...
(run "c:List " #RamTempFile " LFORMAT %s >ENV:wwDriver")
(set Driver (getenv "wwDriver"))
(set DriverLen (strlen Driver))
(set DriverLen (- DriverLen 1))
(set #ChosenDriver
(substr Driver 0 DriverLen)
)
;// finally, copy driver to driver destination...
(if (= #DestinationType "Floppy")
(
(set #FileSourceDisk #MainDisk)
(@GetDisk)
)
)
(copyfiles
(source #RamTempFile)
(dest #DriverDest)
(pattern #ChosenDriver)
(optional "force")
)
)
)
;------------------------------------------------------
;// Delete any files from Ram and temporary Ram Drawer
(procedure @CleanUp
(
(working #WorkingMsg)
(makeassign "OrgTemp" (safe))
(if (exists #RamTempFile)
(
(set DeleteDrawer (cat "ram:delete " #RamTempFile " all force"))
(Run DeleteDrawer)
)
)
(makeassign "OrgUtils" (safe))
(if (exists #RamUtils)
(
(set DeleteDrawer (cat "ram:delete " #RamUtils " all force"))
(Run DeleteDrawer)
)
)
(delete "Ram:delete"
(optional "force")
)
)
)
;------------------------------------------------------
; ### Main
(complete 0)
(welcome)
(complete 5)
(@InitialChecks) ;// Copies relevent files to ram also
(@CheckHDorFloppy)
(complete 10)
(if (= #DestinationType "Hard")
(
;// HD
; Install to Hard-disk
(if (= #FullPath (cat #InstallDisk ":"))
(Abort #HDBootedFromFloppy)
)
(set #ArchiveLocation (cat #InstallDisk ":Archive/"))
(set #FileSourceDisk #InstallDisk)
(@GetDisk)
(@SetUpHDProgDests)
;## if on Hard disk see if there's a Locale:Countries drawer
(if (not (exists "Sys:Locale"))
(
(makedir "Sys:Locale" (infos))
(startup #ProgName
(prompt #AskLocaleMsg)
(help #AskLocaleHelp)
(command #AskLocaleCmd)
)
(run ("Assign LOCALE: SYS:Locale")) ; Set Assign now
(copyfiles
(source (cat #InstallName ":Locale"))
(dest "Sys:Locale/")
(all)
(optional "force")
)
)
)
(@CheckASL)
(@CheckCommodities)
(@CheckLocale)
(@CheckParse)
(@CheckDiskFont)
(@CheckAmigaGuide)
(@FindHDDest)
(@CreateDrawers)
(@SetUpHDProgDests)
(set @default-dest #DestDrawer)
(complete 20)
(@DearchiveScreenFonts)
(@DearchiveEnv-Archive)
(@DearchiveEnv)
(complete 30)
(@InstallProg)
(@InstallSupplements)
(if (not (exists "Sys:Prefs/Sound"))
(
(working #WorkingMsg)
(set #UnpackFile (cat #ArchiveLocation #SoundArchiveName))
(set #UnpackDest "Sys:Prefs/")
(@UnpackFiles)
)
)
(complete 40)
(@InstallSuppStorage)
(complete 50)
(@InstallThemes)
(if (not (exists (cat #SamplesDest "Harp")))
(
(@InstallHarp)
)
)
(complete 60)
;// Install Catalogs
(set #UnpackFile (cat #ArchiveLocation #CatalogsArchiveName))
(set #UnpackDest (cat #HDCatalogsDest "/"))
(@UnpackFiles)
(@InstallFiles)
(complete 70)
(@InstallTemplates)
(@InstallHelp)
(set #UnpackFile (cat #ArchiveLocation #DrawerInfoArchiveName))
(set #UnpackDest (cat #ProgDest "/"))
(@UnpackFiles)
(complete 80)
(set #UnpackFile (cat #ArchiveLocation #HDInfoArchiveName))
(set #UnpackDest #ProgDest)
(@UnpackFiles)
(set #UnpackFile (cat #ArchiveLocation #ProgramInfoArchiveName))
(set #UnpackDest #ProgDest)
(@UnpackFiles)
(
;set default tool type for all Themed Diaries
(foreach #ThemesDest "#?"
(
(tooltype
(dest (cat #ThemesDest @each-name))
(setdefaulttool (cat #ProgDest #ProgName))
)
)
)
)
)
(
;// Floppy
(set #ArchiveLocation "OrgTemp:")
(@SetUpFloppyProgDests)
(if (>= @user-level 2) ;expert only
(
(set #FormatChoice
(askchoice
(prompt #FormatChoiceprompt)
(choices #FormatChoicemsg1 #FormatChoicemsg2)
(help #FormatChoice-help)
(default 0)
)
)
)
)
;// if expert then check user wants to create disk 1
(if (>= @user-level 2)
(
(set #CreateDiskChoice
(askbool
(prompt (cat #CreateDiskPrompt1 #MainDisk #CreateDiskPrompt2))
(choices #ChoiceContinue #ChoiceSkip)
(help #CreateDiskHelp)
(default 1)
)
)
)
(set #CreateDiskChoice 1)
)
(if (= @user-level 0)
(
(user 2)
(set #UserNovice 1)
)
)
(if (= #CreateDiskChoice 1)
(@CreateDisk1)
)
(if (= #UserNovice 1)
(
(user 0)
)
)
;// if expert then check user wants to create disk 2
(if (>= @user-level 2)
(
(set #CreateDiskChoice
(askbool
(prompt (cat #CreateDiskPrompt1 #FilesDisk #CreateDiskPrompt2))
(choices #ChoiceContinue #ChoiceSkip)
(help #CreateFilesDiskHelp)
(default 1)
)
)
)
(set #CreateDiskChoice 1)
)
(if (= @user-level 0)
(
(user 2)
(set #UserNovice 1)
)
)
(if (= #CreateDiskChoice 1)
(@CreateDisk2)
)
(if (= #UserNovice 1)
(user 0)
)
(set @default-dest "")
)
)
(complete 90)
(set #InstallPrinter 1)
(if (< #UserNovice 1) ; Intermediate or Expert only
(
(set #InstallPrinter
(askbool
(prompt #PrinterChoicePrompt)
(choices #PrinterChoicemsg1 #PrinterChoicemsg2)
(help #PrinterChoice-help)
(default 0)
)
)
)
)
(if (= #InstallPrinter 1)
(
(@AddNewPrinter)
)
)
(@CleanUp)
(complete 100)
(if (= #DestinationType "Hard")
(exit)
(exit #FloppyFinishedMsg)
)